home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_gaussianblur.ifx < prev    next >
Text File  |  2004-08-03  |  664b  |  33 lines
  1. /*
  2.  * $VER: EOT_GaussianBlur.ifx 2.6 (24.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Written by Ola Eric Olsson
  6.  *
  7.  *
  8.  */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. framenum = Word(Arg(1),1)
  13. mainname = Word(Arg(1),2)
  14. swapname = Word(Arg(1),3)
  15. seqnum   = Word(Arg(1),4)
  16. framemax = Word(Arg(1),5)
  17.  
  18. base  = 'autofx_gaussian_'
  19.  
  20. sig     = GETCLIP(base||'sigma')
  21. rad     = GETCLIP(base||'radius')
  22. blend   = GETCLIP(base||'blend')
  23.  
  24. bl = TRUNC(blend * (framenum / framemax))
  25.  
  26. /* requestnotify '"sig='||sig||'; rad='||rad||'; blend='||bl||'"' */
  27.  
  28. Hook GaussianBlur Sigma sig Radius rad Blend bl
  29.  
  30. /* Hook GaussianBlur Effect constant Type Sigma Width sig Radius rad Blend bl */
  31.  
  32. EXIT rc
  33.